Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/mymem1/myset.frm

Text File | 1995-05-08 | 14KB | 515 lines

VERSION 2.00
Begin Form Myset
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Settings"
   ClientHeight    =   3375
   ClientLeft      =   1095
   ClientTop       =   1485
   ClientWidth     =   5895
   Height          =   3780
   Icon            =   0
   Left            =   1035
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3375
   ScaleWidth      =   5895
   Top             =   1140
   Width           =   6015
   Begin Frame FrameSave
      Caption         =   "Save Settings to:"
      Height          =   975
      Left            =   120
      TabIndex        =   28
      Top             =   2280
      Width           =   5655
      Begin OptionButton OptionSaveWEP
         Caption         =   "Save to ENTPACK.INI"
         Height          =   255
         Left            =   3000
         TabIndex        =   23
         Top             =   600
         Width           =   2295
      End
      Begin OptionButton OptionSaveMy
         Caption         =   "Save to MyMemory.INI"
         Height          =   255
         Left            =   120
         TabIndex        =   21
         Top             =   600
         Width           =   2295
      End
      Begin OptionButton OptionSaveWIN
         Caption         =   "Save to WIN.INI"
         Height          =   255
         Left            =   3000
         TabIndex        =   22
         Top             =   240
         Width           =   1935
      End
      Begin OptionButton OptionSaveNo
         Caption         =   "Don't Save"
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   240
         Width           =   2295
      End
   End
   Begin CheckBox CheckScore
      Caption         =   "Save Best Score"
      Height          =   255
      Left            =   3960
      TabIndex        =   19
      Top             =   1800
      Width           =   1935
   End
   Begin Frame FrameTime
      Caption         =   "Unmatched Pairs Stay Visible (seconds)"
      Height          =   615
      Left            =   120
      TabIndex        =   27
      Top             =   1560
      Width           =   3735
      Begin OptionButton OptionS5
         Caption         =   " 5"
         Height          =   255
         Left            =   3000
         TabIndex        =   18
         Top             =   240
         Width           =   495
      End
      Begin OptionButton OptionS4
         Caption         =   " 4"
         Height          =   255
         Left            =   2280
         TabIndex        =   17
         Top             =   240
         Width           =   495
      End
      Begin OptionButton OptionS3
         Caption         =   " 3"
         Height          =   255
         Left            =   1560
         TabIndex        =   16
         Top             =   240
         Width           =   495
      End
      Begin OptionButton OptionS2
         Caption         =   " 2"
         Height          =   255
         Left            =   840
         TabIndex        =   15
         Top             =   240
         Width           =   495
      End
      Begin OptionButton OptionS1
         Caption         =   " 1"
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   240
         Width           =   495
      End
   End
   Begin CommandButton CmdCancel
      Caption         =   "Cancel"
      Height          =   495
      Left            =   4800
      TabIndex        =   1
      Top             =   960
      Width           =   855
   End
   Begin Frame FrameSquare
      Caption         =   "Square Size (pixels)"
      Height          =   615
      Left            =   2280
      TabIndex        =   26
      Top             =   840
      Width           =   2295
      Begin OptionButton OptionP48
         Caption         =   "48"
         Height          =   255
         Left            =   1560
         TabIndex        =   13
         Top             =   240
         Width           =   615
      End
      Begin OptionButton OptionP40
         Caption         =   "40"
         Height          =   255
         Left            =   840
         TabIndex        =   12
         Top             =   240
         Width           =   615
      End
      Begin OptionButton OptionP32
         Caption         =   "32"
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   240
         Width           =   615
      End
   End
   Begin Frame FrameY
      Caption         =   "Vertical Squares"
      Height          =   615
      Left            =   120
      TabIndex        =   25
      Top             =   840
      Width           =   2175
      Begin OptionButton OptionV10
         Caption         =   "10"
         Height          =   255
         Left            =   1560
         TabIndex        =   10
         Top             =   240
         Width           =   495
      End
      Begin OptionButton OptionV8
         Caption         =   " 8"
         Height          =   255
         Left            =   840
         TabIndex        =   9
         Top             =   240
         Width           =   495
      End
      Begin OptionButton OptionV6
         Caption         =   " 6"
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   240
         Width           =   495
      End
   End
   Begin CommandButton CmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   495
      Left            =   4800
      TabIndex        =   0
      Top             =   240
      Width           =   855
   End
   Begin Frame FrameX
      Caption         =   "Horizontal Squares"
      Height          =   615
      Left            =   120
      TabIndex        =   24
      Top             =   120
      Width           =   4455
      Begin OptionButton OptionH18
         Caption         =   "18"
         Height          =   255
         Left            =   3720
         TabIndex        =   7
         Top             =   240
         Width           =   615
      End
      Begin OptionButton OptionH16
         Caption         =   "16"
         Height          =   255
         Left            =   3000
         TabIndex        =   6
         Top             =   240
         Width           =   615
      End
      Begin OptionButton OptionH14
         Caption         =   "14"
         Height          =   255
         Left            =   2280
         TabIndex        =   5
         Top             =   240
         Width           =   615
      End
      Begin OptionButton OptionH12
         Caption         =   "12"
         Height          =   255
         Left            =   1560
         TabIndex        =   4
         Top             =   240
         Width           =   615
      End
      Begin OptionButton OptionH10
         Caption         =   "10"
         Height          =   255
         Left            =   840
         TabIndex        =   3
         Top             =   240
         Width           =   615
      End
      Begin OptionButton OptionH8
         Caption         =   " 8"
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Width           =   615
      End
   End
End
Dim TempX As Integer
Dim TempY As Integer
Dim TempTime As Single
Dim TempFile As Integer
Dim TempScore As Integer
Dim TempSquare As Integer

Sub CheckScore_Click ()
    TempScore = CheckScore.Value
End Sub

Sub CmdCancel_Click ()
    Unload MySet
End Sub

Sub CmdOK_Click ()
'Hide Form first so we don't